^! C:\VFP\COM+\CRM\CRMFILESVFP.PJX C:\VFP\COM+\CRM\CRMFILESVFP.PJX c:\vfp\com+\crmc:\vfp\com+\crm crm1.prg crm2.prg b@>%UA.](,U C:\crmfilesvfp.errU$TCMTXAS.APPSERVER.1NTC-TCCrmFilesVFP.CrmFilesWorkerVFPN%COBCB-U CFILENAMELOWORKERTHISOMTXOCONTEXTGETOBJECTCONTEXT CREATEFILETTUTHISOCONTEXTOMTX C CUTHISOCONTEXT SETCOMPLETECLEANUP C CUTHISOCONTEXTSETABORTCLEANUPTa M(`Error in CRM Files...# Error: <>% Method: <>! Line: <>)# Message: <>"CC:\crmfilesvfp.erraBUNERRORCMETHODNLINELCSTRTHIS LHADERRORInit, CreateFilePCleanupO CommitFile AbortFileERRORd T- T T      U LHADERROROMTXOCONTEXT CrmFilesVFPsession;3qqAqQqA3333q1QA!A3>  @h %D)$Oc:\docume~1\randybr\locals~1\temp\crm3.fxpc:\vfp\crm\crm3.prg)b# crm3.prgjINITf CREATEFILEfCLEANUPf COMMITFILEf ABORTFILEfERRORf CrmFilesVFPCcrm3.prgCRM3PCMTXAS.AP CRMFILES.HT crmfiles.hFN( crmfiles.hFN( crmfiles.h MYDOCMDfMYEVALfINITfSLEEPf OUTPUTLOGfREGISTERCRMFILESCOMPENSATORfWRITELOGf CREATEFILEf DELETEFILEfERRORfCrmFilesWorkerVFPC crmworker.prg CRMWORKERP crmcomp.prgcrmworker.prg MYDOCMDfMYEVALfINITfSLEEPf OUTPUTLOGfREGISTERCRMFILESCOMPENSATORf CREATEFILEf DELETEFILEfERRORfCrmFilesWorkerVFPCcrm1.prgCRM1P1 PLOGRECORDa OUTPUTLOGf-ICRMCOMPENSATORVARIANTS_SETLOGCONTROLVARIANTSf-ICRMCOMPENSATORVARIANTS_PREPARERECORDVARIANTSf,ICRMCOMPENSATORVARIANTS_BEGINPREPAREVARIANTSf*ICRMCOMPENSATORVARIANTS_ENDPREPAREVARIANTSf+ICRMCOMPENSATORVARIANTS_ABORTRECORDVARIANTSf,ICRMCOMPENSATORVARIANTS_COMMITRECORDVARIANTSf+ICRMCOMPENSATORVARIANTS_BEGINCOMMITVARIANTSf)ICRMCOMPENSATORVARIANTS_ENDCOMMITVARIANTSf*ICRMCOMPENSATORVARIANTS_BEGINABORTVARIANTSf(ICRMCOMPENSATORVARIANTS_ENDABORTVARIANTSfERRORfCRM2fCrmFilesCompensatorVFPCcrm2.prgCRM2P CUTHI  E;9 % L(11&TCCrmFilesCompensatorVFPU PLOGRECORDXV%C- B0CC_C C C:\crmfilesvfp.logaUCSTR=QVARIANT(CSetLogControlVariants...U PLOGCONTROLTHIS OUTPUTLOG>QVARIANT"CPrepareVariants...B-U PLOGRECORDTHIS OUTPUTLOG*'CBeginPrepareVariants...UTHIS OUTPUTLOG/%CEndPrepareVariants...BaUTHIS OUTPUTLOG{QVARIANT T-CAbort record contents: C_%C0m BaU PLOGRECORD LCFILENAMETHIS OUTPUTLOG^QVARIANT T.CCommit record contents: C_BaU PLOGRECORD LCFILENAMETHIS OUTPUTLOG;QLOGICAL&CBeginCommitVariants...U BRECOVERYTHIS OUTPUTLOG'$CEndCommitVariants...UTHIS OUTPUTLOG:QLOGICAL%CBeginAbortVariants...U BRECOVERYTHIS OUTPUTLOG&#CEndAbortVariants...UTHIS OUTPUTLOGTa M(`"Error in CRM Compensator ...# Error: <>% Method: <>! Line: <>(" Message: <>.CC C C:\crmfilesvfp.erraBUNERRORCMETHODNLINELCSTRTHIS LHADERROR OutputLogi-ICrmCompensatorVariants_SetLogControlVariants-ICrmCompensatorVariants_PrepareRecordVariants(,ICrmCompensatorVariants_BeginPrepareVariants*ICrmCompensatorVariants_EndPrepareVariants+ICrmCompensatorVariants_AbortRecordVariants ,ICrmCompensatorVariants_CommitRecordVariants+ICrmCompensatorVariants_BeginCommitVariants=)ICrmCompensatorVariants_EndCommitVariants*ICrmCompensatorVariants_BeginAbortVariants(ICrmCompensatorVariants_EndAbortVariants.ERRORi  T- T-ICRMCOMPENSATORVARIANTS comsvcs.dll         U LHADERROROCRMLOGCONTROLINCrmFilesCompensatorVFPsessionf:qAAA4!8!!s4q4Rq4!qAr5!qq5!a4A4!Q413q!1QAA3>  .p ~!Fs*^/lB5P B$ L'% M R)[  V, \. _;  c:\docume~1\randyb~1.red\locals~1\temp\crm2.fxpd:\vfp\crm\crm2.prg) (\vfp\crm\crm2.pr  < EMK%lsYp(1UQSTRING &cCmd UCCMD%QSTRINGreturn &cexpr UCEXPR|SleepWin32APIUSLEEPWIN32APIV%C- B0CC_C C C:\crmfilesvfp.logaUCSTR/T"CrmFilesVFP.CrmFilesCompensatorVFPTSample VFP CRM%CO,TCCrmClerk.CrmClerk.1(TC% ! BULCPROGIDCOMPENSATOR LCDESCRIPTIONLNERRTHISOCRMLOGCONTROLIREGISTERCOMPENSATOR LHADERROR T%C0`/CFilename already exists: C_B-3CFilename does not exist yet: C_%CB-.CRegisterCrmFilesCompensator...C%CB-)CWriteLogRecordVariants...C %CB-C ForceLog...CVFP CRM Sample%CB-BaU CFILENAME LCFILENAMETHIS OUTPUTLOGREGISTERCRMFILESCOMPENSATOROCRMLOGCONTROLWRITELOGRECORDVARIANTS LHADERRORFORCETRANSACTIONTOABORTFORCELOG U CFILENAMETa M(`Error in CRM Worker...# Error: <>% Method: <>! Line: <>(" Message: <>.CC C C:\crmfilesvfp.erraUNERRORCMETHODNLINELCSTRTHIS LHADERRORmydocmd,myevalSInit OutputLogRegisterCrmFilesCompensator CreateFile DeleteFileERROR(v  T T-        UOCRMLOGCONTROL LHADERRORCrmFilesWorkerVFPsession @1223qAAA3AqAAA3qqqA1qAFqAqAqAs3q4q1QA3=2 ?&  6= e? iK: c:\docume~1\randyb~1.red\locals~1\temp\crm1.fxpd:\vfp\crm\crm1.prg)< (: PLOGRECORDa OUTPUTLOGf-ICRMCOMPENSATORVARIANTS_SETLOGCONTROLVARIANTSf-ICRMCOMPENSATORVARIANTS_PREPARERECORDVARIANTSf,ICRMCOMPENSATORVARIANTS_BEGINPREPAREVARIANTSf*ICRMCOMPENSATORVARIANTS_ENDPREPAREVARIANTSf+ICRMCOMPENSATORVARIANTS_ABORTRECORDVARIANTSf,ICRMCOMPENSATORVARIANTS_COMMITRECORDVARIANTSf+ICRMCOMPENSATORVARIANTS_BEGINCOMMITVARIANTSf)ICRMCOMPENSATORVARIANTS_ENDCOMMITVARIANTSf*ICRMCOMPENSATORVARIANTS_BEGINABORTVARIANTSf(ICRMCOMPENSATORVARIANTS_ENDABORTVARIANTSfERRORfCRMCOMPfCrmFilesCompensatorVFPC crmcomp.prgCRMCOMPP` 4 103 4 2 31C:\vfp\COM+\CRM\crmfilesvfp.dll 11crmfilesvfp 11CrmFilesVFP 24CrmFilesVFP Type Library 4 116 38{3B9097DB-2246-454B-9137-D9701B7BC288} 10 34CrmFilesVFP.CrmFilesCompensatorVFP 34CrmFilesVFP.CrmFilesCompensatorVFP 0 22CrmFilesCompensatorVFP 27c:\vfp\com+\crm\crmcomp.prg 12 38{BB8B6EE2-E67C-41D8-8D79-C0B2EB4B24C8} 38{A6F073E7-62F9-4F68-B07A-E82A492CBDA1} 10 29CrmFilesVFP.CrmFilesWorkerVFP 29CrmFilesVFP.CrmFilesWorkerVFP 0 17CrmFilesWorkerVFP 29c:\vfp\com+\crm\crmworker.prg 12 38{A662C4BD-D8BA-447B-B710-54ABE384FC32} 38{0A9CB81C-3514-43C7-A586-03F3E8805AA0}  m KW %_ d o 8k(/1&TCCrmFilesCompensatorVFPU PLOGRECORDXV%C- B0CC_C C C:\crmfilesvfp.logaUCSTR=QVARIANT(CSetLogControlVariants...U PLOGCONTROLTHIS OUTPUTLOGDQVARIANT(CPrepareVariants...C_B-U PLOGRECORDTHIS OUTPUTLOG*'CBeginPrepareVariants...UTHIS OUTPUTLOG/%CEndPrepareVariants...BaUTHIS OUTPUTLOGtQVARIANT H8 CAT gTCg C8T%%C04%C0 C0 (%C0 C0 0.CAbort record contents...C_BaU PLOGRECORDTHIS CTEMPFILENAMENACTION CFILENAME OUTPUTLOGbQVARIANT H% CAT TCg!% C0  CVFP CRM Sample C  %T%C0%C0 !/CCommit record contents...C_BaU PLOGRECORDTHIS CFILENAMENACTION CTEMPFILENAME OUTPUTLOG;QLOGICAL&CBeginCommitVariants...U BRECOVERYTHIS OUTPUTLOG'$CEndCommitVariants...UTHIS OUTPUTLOG:QLOGICAL%CBeginAbortVariants...U BRECOVERYTHIS OUTPUTLOG&#CEndAbortVariants...UTHIS OUTPUTLOGTa M(`"Error in CRM Compensator ...# Error: <>% Method: <>! Line: <>(" Message: <>.CC C C:\crmfilesvfp.erraBUNERRORCMETHODNLINELCSTRTHIS LHADERROR OutputLogi-ICrmCompensatorVariants_SetLogControlVariants-ICrmCompensatorVariants_PrepareRecordVariants(,ICrmCompensatorVariants_BeginPrepareVariants*ICrmCompensatorVariants_EndPrepareVariants+ICrmCompensatorVariants_AbortRecordVariants,ICrmCompensatorVariants_CommitRecordVariants+ICrmCompensatorVariants_BeginCommitVariantsn)ICrmCompensatorVariants_EndCommitVariants*ICrmCompensatorVariants_BeginAbortVariants(ICrmCompensatorVariants_EndAbortVariants_ERROR T- T T T T-ICRMCOMPENSATORVARIANTS comsvcs.dll         U LHADERROROCRMLOGCONTROLNACTION CFILENAME CTEMPFILENAMEINCrmFilesCompensatorVFPsession c=qAAA4!4!s4q4Rq4!!A!!A"AAAAAq6!!A!A"A2AAq6!a4A4!Q413q!1QAA3r>x  1&_+G 1-U %RB3qE]wG?{JL'Y2c:\docume~1\randybr\locals~1\temp\crmcomp.fxpc:\vfp\com+\crm\crmcomp.prg)m #crmcomp.fxpd:\vfp   OSj %A | N(1UQSTRING &cCmd UCCMD%QSTRINGreturn &cexpr UCEXPR|SleepWin32APIUSLEEPWIN32APIV%C- B0CC_C C C:\crmfilesvfp.logaUCSTR/T"CrmFilesVFP.CrmFilesCompensatorVFPTSample VFP CRM%CO,TCCrmClerk.CrmClerk.1(TC% ! BULCPROGIDCOMPENSATOR LCDESCRIPTIONLNERRTHISOCRMLOGCONTROLIREGISTERCOMPENSATOR LHADERROR  T T"TCC]C].TMPT%C~B-.CRegisterCrmFilesCompensator...C C C % C B-)CWriteLogRecordVariants...C % wC B-C ForceLog...BaU CFILENAMECTYPE LCFILENAME LCTEMPFILELCTYPETHIS CTEMPFILEREGISTERCRMFILESCOMPENSATOR OUTPUTLOGOCRMLOGCONTROLWRITELOGRECORDVARIANTS LHADERRORFORCETRANSACTIONTOABORTFORCELOGTC%C0b/CFilename already exists: C_B-3CFilename does not exist yet: C_%C1 B-CVFP CRM Sample%CB-BaU CFILENAME LCFILENAMETHIS OUTPUTLOGWRITELOG LHADERROROCRMLOGCONTROLFORCETRANSACTIONTOABORT*TC%C0 g3CFilename does not exist yet: C_B-/CFilename already exists: C_%C2 B-(%C0 %CB-BaU CFILENAME LCFILENAMETHIS OUTPUTLOGWRITELOG CTEMPFILE LHADERROROCRMLOGCONTROLFORCETRANSACTIONTOABORTTa M(`Error in CRM Worker...# Error: <>% Method: <>! Line: <>(" Message: <>.CC C C:\crmfilesvfp.erraUNERRORCMETHODNLINELCSTRTHIS LHADERRORmydocmd,myevalSInit OutputLogRegisterCrmFilesCompensatorWriteLog CreateFile DeleteFile^ERROR T T- T         UOCRMLOGCONTROL LHADERROR CTEMPFILECrmFilesWorkerVFPsession :223qAAA3AqAAA3!qACAAqAqAq3qrqA1qAqAs3qr1qAqAS!AqAs3q1QA3= + =_ l.+8)+76S LI` f^ jL#c:\docume~1\randybr\locals~1\temp\crmworker.fxpc:\vfp\com+\crm\crmworker.prg) #